0 DATA"A000B197C169D251E133F208G160H032I253J192K165L144M201N252O008P141Q076R145"
1 DATA"S173T002U024V096W177X007Y210Z162[194\200]254^255_232:001;056<176=233>230"
2 DATA"?003@009 181!198#207$006%095&172'217(074)193*195+221-224.105/010[255]"
3 DATA"C92,E;CQE115,CHE116,CJE117,VZA189,)J240,XHY^_Q19,JVH234,*H121,AM92,240,"
4 DATA"?Q190,JH234,*H121,A140,161,B142,ZBM85,F$H148,)Q JM68,F$H22,[Q JM82,F$"
5 DATA"H153,[Q JMQF$H239,JQ JM67,F$H *Q JM72,F$HL*Q JM84,F?Q106,*M80,F11,C:P"
6 DATA"215,BH'JQ JM69,F11,CAP215,BH'JQ JM83,F$H213,196,Q JM79,F$H50,BQ JM73,"
7 DATA"F?H17,J&161,B174,ZBQ115,AQ121,AFY#199,Y)205,G['GY#[BY212,G[M216,['AH178,"
8 DATA"WK100,P164,BK101,P163,BH155,183,142,166,BQ241,*CAEDCVENGAC248,EIC%E]C"
9 DATA"A153,248,%WDU/RDL5,C:153,248,%\JOF=WDU/RDL$WI@:RI\F239,>N>]KNM127,LXK"
10 DATA"DM64,L:VWDU/RDL$WI@:RI\J64,L237,KDU.;EDLT>NGA185,248,%17,DRD\JOF244,"
11 DATA"GAKDU.OEDLT>NKNE]KD;=OEI<T!]KNM127,LXKDM64,L:VGAQ:)CVENE]CA170,EDCXE"
12 DATA"IGAWD157,175,B\WD136,RD\\JOF245,KDU.OEDLT>N_-40,L+GAWDRI\WD136,RD\\J"
13 DATA"OF245,KDU.OEDLT>NKIU.OEILT>]KNM128,FYZAC126,E]CXEIGA189,175,BRIKIU.O"
14 DATA"EILT>]_-40,L235,VC127,ENC;EDC127,E]C49,EIZAGXWD157,175,B136,WD\RD136,"
15 DATA"JAF245,KD;=OED<T!N_-40,L222,GXWDRI136,WD\RD136,JAF245,KD;=OED<T!NKI;"
16 DATA"=OEI<T!]KNM%F211,C;EDC97,ENGAZA189,175,BRDKD;=OED<T!N_-40,L235,VC127,"
17 DATA"ENC;EDC%E]C247,EIGAZAWDU(RDCARIL4,C128,RI\JOF235,KNE]KD;=OEI<T!]GAWI"
18 DATA"U(RIL@WDU.128,<TRD\JOF234,K]ENKIEDKI;=OEI<@!]K]M%F:V_-38,FMZAGAWIU(R"
19 DATA"IL@C128,U113,D<TRDWIU121,247,%<TRI\JOF-KI;=OEI<T!]KIEDK]ENKNM%F:VC%E"
20 DATA"]C247,EIGAQS[FY#199,Y)205,G['GY#[BY212,G[M216,['ST+@?PT+SA+41,N@?PA+"
21 DATA"C21,PUFC27,P17,FCAE!CAP21,FVST+@?PT+SA+41,N@TPA+SUF41,15,@120,PUFS17,"
22 DATA"F@HP17,FVC92,ENCAEDGAZAC:RD\JAF249,>N_-4,L242,CVENGAZACARD\JAF249,_>"
23 DATA"N-HL242,V>122,FT>123,VS164,B(S163,B106,((PKBS166,B(((P167,BS166,B41,"
24 DATA"XP168,B174,167,BCAPCBP170,B-A240,21,SCBU.64,PCBL?238,170,B238,170,B202,"
25 DATA"Q26,196,142,171,B142,&BSKBU///L?238,&BU109,168,BP171,BL?238,&BSCBU109,"
26 DATA"171,BP171,BL?238,&BS170,BU109,&BP&BCVU109,&BP&BS163,B41,XPSBCX;237,S"
27 DATA"BPSBC:ZA236,SB240,5,/_Q136,196,P174,BS&BE34,S171,BE33,GAS215,B240,31,"
28 DATA"W33,13,174,BR33,VFY#199,Y)205,G['GY#[BY212,G[M216,['S174,B73,^P174,B"
29 DATA"W33,45,174,BR33,VH106,*Q228,196,147,14,O211,)214,BGAZA134,!189,219,196,"
30 DATA"240,XHY^_Q_196,GAH#^153,=X\J16,<4,M13,F241,JT<:V140,_XCOZOG^H186,^S_"
31 DATA"XZ=GXH189,^CAE34,C92,E35,C34,ZAG128,H216,^VH106,*Q65,B147,14,O204,#)"
32 DATA"196,GAZA134,!189,;B240,XHY^_Q69,BGAH#^153,=X\J16,<4,M13,F241,JT<:V140,"
33 DATA"_XCOZOG^H186,^S_XZ=GXH189,^HL*CAZ^G^H213,^VFY#199,Y)205,G['GY#[BY212,"
34 DATA"G[M216,[':^100,A12,100,12,4,A15,100,111,?OAAAAAAAAAAAAAAAAAAAAAAAAAA"
35 DATA"AAAAAAAAAAAAAA:M44,F16,H122,190,36,61,48,28,K85,MOL22,PJT&)T185,61,@"
36 DATA"[255]"
200 DIMB(96):GOSUB201:END
201 READD$:FORI=1TOLEN(D$)STEP4:DE$=MID$(D$,I,4):D1$=LEFT$(DE$,1)
202 IFD1$="[255]"THEN280
203 D2$=RIGHT$(DE$,3):B(ASC(D1$))=VAL(D2$):NEXT:GOTO201
280 N$="GWML":OPEN15,8,15,"S:"+N$:OPEN1,8,1,"0:"+N$+",P,W"
290 PRINT#1,CHR$(000)CHR$(192);
300 READB$:FORA=1TOLEN(B$):A$=MID$(B$,A,1):IFA$=","THENB=VAL(C$):C$="":GOTO360
320 IFA$<":"ANDA$>"/"THENC$=C$+A$:NEXT
330 IFA$="[255]"THEN370
340 B=B(ASC(A$))
360 C=C+B:PRINT#1,CHR$(B);:NEXT:GOTO300
370 IFC<> 215247 THENPRINT"CHECK FOR TYPING ERROR":GOTO390
380 PRINTN$" SAVED TO DISK"
390 CLOSE1:CLOSE15:RETURN